﻿Imports System.Data.SqlServerCe

Public Class frmBewegingen
    Dim blnAangepast As Boolean 'Visser ik ga als ik iets verander in u formulier mij naam eronder zetten dus als ge iets niet snapt kunt ge het vragen e ;)
    Private Sub Opslaam_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles OpslaanToolStripMenuItem.Click
        Me.Validate()
        Me.BewegingenBindingSource.EndEdit()
        Dim Resultaat As MsgBoxResult = MessageBox.Show("Bent u zeker dat u wilt opslaan?", "Opslaan", MessageBoxButtons.YesNo, MessageBoxIcon.Information)
        If Resultaat = MsgBoxResult.Yes Then
            Me.TableAdapterManager.UpdateAll(Me.DtsHuidigeVoorraad)
            frmHuidigevoorraad.RefreshfrmMain()
        End If
        blnAangepast = False
    End Sub

    Private Sub frmBewegingen_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        'TODO: This line of code loads data into the 'DtsHuidigeVoorraad.Producten' table. You can move, or remove it, as needed.
        Me.ProductenTableAdapter.Fill(Me.DtsHuidigeVoorraad.Producten)

        'TODO: This line of code loads data into the 'DtsHuidigeVoorraad.Bewegingen' table. You can move, or remove it, as needed.
        Me.BewegingenTableAdapter.FillByProductId(Me.DtsHuidigeVoorraad.Bewegingen, My.Settings.GeslecteerdProductnummer)


        'Index is zero-based
        cboProductId.SelectedIndex = (My.Settings.GeslecteerdProductnummer)
        If My.Settings.GeslecteerdProductnummer = 0 Then
            Me.BewegingenTableAdapter.FillByProductId(Me.DtsHuidigeVoorraad.Bewegingen, cboProductId.SelectedIndex + 1)
        End If

    End Sub

    Private Sub cboProductId_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles cboProductId.SelectedIndexChanged
        Me.BewegingenTableAdapter.FillByProductId(Me.DtsHuidigeVoorraad.Bewegingen, cboProductId.SelectedIndex + 1)
        My.Settings.GeslecteerdProductnummer = (cboProductId.SelectedIndex)
        'Olivier
    End Sub

    Private Sub ToevoegenToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles VerwijderenToolStripMenuItem.Click
        Dim msgAnswer As MsgBoxResult
        blnAangepast = True
        msgAnswer = MessageBox.Show("Bent u zeker dat u deze beweging wil verwijderen?", "Opgelet!", MessageBoxButtons.YesNo, MessageBoxIcon.Question)
        If msgAnswer = MsgBoxResult.Yes Then
            DtsHuidigeVoorraad.Bewegingen(Me.dtvBewegingen.CurrentRow.Index).Delete()
        Else
            Exit Sub
        End If


        'Me.TableAdapterManager.UpdateAll(Me.DtsHuidigeVoorraad)
        'Olivier
    End Sub

    Private Sub AfsluitenToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles AfsluitenToolStripMenuItem.Click
        Dim intAntwoord As Integer

        intAntwoord = MessageBox.Show("Weet u zeker dat u dit scherm wilt sluiten?" & vbNewLine & "Wijzigingen worden niet automatisch opgeslagen.", "Waarschuwing", MessageBoxButtons.YesNo, MessageBoxIcon.Information)

        If intAntwoord = 6 Then
            Me.Close()
        End If
        'Olivier
    End Sub

    Private Sub RdbAZ_CheckedChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles RdbAZ.CheckedChanged
        Dim dtvSortering As New DataView
        dtvSortering = DtsHuidigeVoorraad.Bewegingen.DefaultView
        'De Bewegingstabel filteren(Alle Postitieve bewegingen)
        dtvSortering.Sort = "BewegingId asc"
        'De gefilterd dataview toewijzen als datasource van de 1ste Bewegingentabel
        dtvBewegingen.DataSource = dtvSortering

        'Olivier
    End Sub

    Private Sub RdbZA_CheckedChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles RdbZA.CheckedChanged
        Dim dtvSortering As New DataView
        dtvSortering = DtsHuidigeVoorraad.Bewegingen.DefaultView
        'De Bewegingstabel filteren(Alle Postitieve bewegingen)
        dtvSortering.Sort = "BewegingId desc"
        'De gefilterd dataview toewijzen als datasource van de 1ste Bewegingentabel
        dtvBewegingen.DataSource = dtvSortering

        'Olivier
    End Sub

    Private Sub ChkPositief_CheckedChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ChkPositief.CheckedChanged
        If Me.Visible = True Then
            If ChkPositief.Checked = True And ChkNegatief.Checked = True Then
                DtsHuidigeVoorraad.Bewegingen.DefaultView.RowFilter = ""
                Exit Sub
            ElseIf ChkPositief.Checked = True And ChkNegatief.Checked = False Then
                Dim dtvSortering As New DataView
                dtvSortering = DtsHuidigeVoorraad.Bewegingen.DefaultView
                dtvSortering.RowFilter = "AantalStuks > 0"
                dtvBewegingen.DataSource = dtvSortering
            Else
                Dim dtvSortering As New DataView
                dtvSortering = DtsHuidigeVoorraad.Bewegingen.DefaultView
                dtvSortering.RowFilter = "AantalStuks < 0"
                dtvBewegingen.DataSource = dtvSortering
            End If
        End If

        'Olivier
    End Sub

    Private Sub ChkNegatief_CheckedChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ChkNegatief.CheckedChanged
        If Me.Visible = True Then
            If ChkPositief.Checked = True And ChkNegatief.Checked = True Then
                DtsHuidigeVoorraad.Bewegingen.DefaultView.RowFilter = ""
                Exit Sub
            ElseIf ChkNegatief.Checked = True And ChkPositief.Checked = False Then
                Dim dtvSortering As New DataView
                dtvSortering = DtsHuidigeVoorraad.Bewegingen.DefaultView
                dtvSortering.RowFilter = "AantalStuks < 0"
                dtvBewegingen.DataSource = dtvSortering
            Else
                Dim dtvSortering As New DataView
                dtvSortering = DtsHuidigeVoorraad.Bewegingen.DefaultView

                dtvSortering.RowFilter = "AantalStuks > 0"
                dtvBewegingen.DataSource = dtvSortering
            End If
        End If
        'Olivier
    End Sub

    Private Sub ToevoegenToolStripMenuItem_Click_1(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ToevoegenToolStripMenuItem.Click
        blnAangepast = True
        BewegingToevoegen.Show()

    End Sub
End Class